Top 10k strings from Tuetenvolumen-Interpolation (19xx)(Claus Jahn)(de).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 (winkel/180
   1 winkel=n-1
   1 rad=umf/(2
   1 n=winkel-1
   1 max < v(n)
   1 ku=kreisumfang:
   1 kreisumfang=200
   1 kreisradius=kreisumfang/(2
   1 kr=kreisradius:
   1 gh=u/umf*15
   1 by Claus Jahn
   1 a$="Ich habe entdeckt, dass bei
   1 Tuetenvolumen-Interpolation
   1 TueteVolum
   1 D0D @ xD0<D
   1 ;"Winkel = ";n;"
   1 ;"Winkel = ";:
   1 ;"Volumen bei ";n-1
   1 ;"Umfang der Grundflaeche = ";
   1 ;"Radius der Grundflaeche = ";
   1 ;"Jetzt wird das groesste","Volumen herausgesucht...",
   1 ;"Hoehe = ";
   1 ;"Der gesuchte Faltwinkel, bei demin die Tuete am Meissten ein-   fuellbar ist, lautet:"
   1 ;"Das Volumen ist ";
   1 -n)*(ku/360
   1 -n)*(kreisumfang/360
   1 +"Gestatten Sie mir nun bitte,    den Winkel genau zu errechnen.  Da ich weiss, dass der Winkel   zwischen "+
   1 (kreisradius*kreisradius-rad*rad)
   1 (kr*kr-r*r):
   1 ''"Bitte ENTER druecken..."
   1 "Dieses Programm berechnet den   Faltwinkel einer Papierscheibe, die zu einer Tuete gefaltet ihr groesstes Volumen hat. Dieses   Programm entstand zwecks Mathe- wettbewerb!"
   1  liegt, kannich Ihnen die genaue Winkelzahl durch Interpolierung errechnen. "
   1  grober Suche das Volumen bei    "+
   1  am groessten ist.